home *** CD-ROM | disk | FTP | other *** search
/ The Book of Tells / The Book of Tells.iso / bot.mst < prev    next >
Encoding:
Text File  |  1994-09-21  |  3.8 KB  |  160 lines
  1. '$INCLUDE 'setupapi.inc'
  2. '$INCLUDE 'msdetect.inc'
  3.  
  4. ''Dialog ID's
  5. CONST WELCOME       = 100
  6. CONST ASKQUIT       = 200
  7. CONST DESTPATH      = 300
  8. CONST EXITFAILURE   = 400
  9. CONST EXITQUIT      = 600
  10. CONST EXITSUCCESS   = 700
  11. CONST OPTIONS       = 800
  12. CONST APPHELP       = 900
  13. CONST BADPATH       = 6400
  14.  
  15. ''Bitmap ID
  16. CONST LOGO = 1
  17.  
  18. GLOBAL DEST$        ''Default destination directory.
  19. GLOBAL OPTCUR$      ''Option selection from option dialog.
  20. GLOBAL SOURCE$
  21. GLOBAL SYSDIR$      ''System directory.
  22.  
  23. DECLARE SUB Install
  24. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  25.  
  26.  
  27. INIT:
  28.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  29.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  30.  
  31.     SetBitmap CUIDLL$, LOGO
  32.     SetTitle "Book Of Tells CD-ROM"
  33.  
  34. ''    szInf$ = GetSymbolValue("STF_SRCINFPATH")
  35. ''    IF szInf$ = "" THEN
  36. ''        szInf$ = GetSymbolValue("STF_CWDDIR") + "SAMPLE1.INF"
  37. ''    END IF
  38. ''    ReadInfFile szInf$
  39.  
  40.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  41.     IF szInf$ = "" THEN
  42.         szInf$ = GetSymbolValue("STF_CWDDIR") + "SETUP.INF"
  43.     END IF
  44.     ReadInfFile szInf$ 
  45.  
  46.     OPTCUR$ = "1"
  47.     DEST$ = GetWindowsDir ()
  48.     SOURCE$ = GetSymbolValue ("STF_SRCDIR")
  49.     SYSDIR$ = GetWindowsSysDir()
  50.  
  51. WELCOME:
  52.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  53.     IF sz$ = "CONTINUE" THEN
  54.         UIPop 1
  55.     ELSE
  56.         GOSUB ASKQUIT
  57.         GOTO WELCOME
  58.     END IF
  59.  
  60.  
  61.     Install
  62.  
  63.  
  64. QUIT:
  65.     ON ERROR GOTO ERRQUIT
  66.  
  67.     IF ERR = 0 THEN
  68.         dlg% = EXITSUCCESS
  69.     ELSEIF ERR = STFQUIT THEN
  70.         dlg% = EXITQUIT
  71.     ELSE
  72.         dlg% = EXITFAILURE
  73.     END IF
  74. QUITL1:
  75.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
  76.     IF sz$ = "REACTIVATE" THEN
  77.         GOTO QUITL1
  78.     END IF
  79.     UIPop 1
  80.  
  81.     END
  82.  
  83. ERRQUIT:
  84.     i% = DoMsgBox("Setup sources were corrupted, please contact Swfte Technical Support","Book Of Tells Setup", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  85.     END
  86.  
  87.  
  88.  
  89. BADPATH:
  90.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  91.     IF sz$ = "REACTIVATE" THEN
  92.         GOTO BADPATH
  93.     END IF
  94.     UIPop 1
  95.     RETURN
  96.  
  97.  
  98.  
  99. ASKQUIT:
  100.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  101.  
  102.     IF sz$ = "EXIT" THEN
  103.         UIPopAll
  104.         ERROR STFQUIT
  105.     ELSEIF sz$ = "REACTIVATE" THEN
  106.         GOTO ASKQUIT
  107.     ELSE
  108.         UIPop 1
  109.     END IF
  110.     RETURN
  111.  
  112.  
  113.  
  114. '**
  115. '** Purpose:
  116. '**     Builds the copy list and performs all installation operations.
  117. '** Arguments:
  118. '**     none.
  119. '** Returns:
  120. '**     none.
  121. '*************************************************************************
  122. SUB Install STATIC
  123.  
  124.     '' Copy font files from CD-ROM
  125.     AddSectionFilesToCopyList "Bot",   SOURCE$, SYSDIR$
  126.     CopyFilesInCopyList
  127.  
  128.  
  129.     CreateProgmanGroup "Book Of Tells", "", cmoNone
  130.     ShowProgmanGroup  "Book Of Tells", 1, cmoNone
  131.    '' CreateProgmanItem "Book Of Tells", "Book Of Tells", MakePath(SOURCE$,"bot.exe"), "", cmoOverwrite
  132.     CreateProgmanItem "Book Of Tells", "Book Of Tells", MakePath(SOURCE$,"Bot.exe"), MakePath(SYSDIR$,"Bot.ico"), cmoOverwrite
  133.  
  134. END SUB
  135.  
  136.  
  137.  
  138. '**
  139. '** Purpose:
  140. '**     Appends a file name to the end of a directory path,
  141. '**     inserting a backslash character as needed.
  142. '** Arguments:
  143. '**     szDir$  - full directory path (with optional ending "\")
  144. '**     szFile$ - filename to append to directory
  145. '** Returns:
  146. '**     Resulting fully qualified path name.
  147. '*************************************************************************
  148. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  149.     IF szDir$ = "" THEN
  150.         MakePath = szFile$
  151.     ELSEIF szFile$ = "" THEN
  152.         MakePath = szDir$
  153.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  154.         MakePath = szDir$ + szFile$
  155.     ELSE
  156.         MakePath = szDir$ + "\" + szFile$
  157.     END IF
  158. END FUNCTION
  159.  
  160.